home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / os2 / srefv12i.zip / confcolr.cmd < prev    next >
OS/2 REXX Batch file  |  1997-02-25  |  5KB  |  169 lines
  1. /* modify the colors used in the sre-filter configurator routines */
  2.  
  3.  
  4. parse arg  ddir, tempfile, reqstrg,list,verb ,uri,user, ,
  5.           basedir ,workdir,privset,enmadd,transaction,verbose, ,
  6.          servername,host_nickname,homedir
  7.  
  8. if verb="" then do
  9.    say " This SRE-Filter add-on is NOT meant to be run from the command line."
  10.    say " It can be invoked by using CONFIGUR.HTM "
  11.    exit
  12. end  /* Do */
  13.  
  14. /* chekc for needed_privs superuser */
  15. if wordpos('SUPERUSER',upper(privset))=0 then do
  16.     'header add WWW-Authenticate: Basic Realm=<CONFIGURE>'  /* challenge */
  17.      return sref_response('unauth', "You do not have Superuser privileges ",tempfile,servername)
  18. end
  19.  
  20.  call lineout tempfile, '<!doctype html public "-//IETF//DTD HTML 2.0//EN">'
  21.  
  22.   call lineout tempfile, "<html><head><title>SRE-Filter: Modify Configurator Colors  </title>"
  23.   call lineout tempfile, "</head><body>"
  24.   call lineout tempfile,' <h1>Modify Configurator Colors </h1> <hr>'
  25.  
  26. do until list=""                /* get user input */
  27.    parse var list a1 '&' list
  28.    parse var a1 a1a '=' a1b
  29.    ook='!'||strip(upper(a1a))
  30.    stuff.ook=strip(upper(a1b))
  31. end /* do */
  32.  
  33. /* check custom colors for proper syntax */
  34. checks="!CONFIG !CONFIG0 !CONFIG2 !CONFIG3 "
  35. checks2="!CONFIGC !CONFIG0C !CONFIG2C !CONFIG3C "
  36.  
  37. mess.1='Configurator Introduction'
  38. mess.2='Simple mode configurator'
  39. mess.3='Intermediate mode configurator'
  40. mess.4='Expert mode configurator'
  41.  
  42. do mm=1 to 4
  43.    ae=strip(word(checks,mm))
  44.    is1=stuff.ae
  45.    if is1 <>3 then iterate
  46.    ill=strip(word(checks2,mm))
  47.    af=left(stuff.ill,6)
  48.    woo=verify(af,'0123456789ABCDEF')
  49.    if woo>0 then do
  50.       call lineout tempfile,' <h2>Error in Color Entry </h2> <hr>'
  51.       call lineout tempfile,'<b>'af '</b>, your color entry for the ' mess.mm ', is invalid '
  52.       call lineout tempfile, ' <bR> The entry must be contain six hex (0123456789ABCDEF) digits '
  53.       call lineout tempfile,'</body></html>'
  54.       call lineout tempfile
  55.      'FILE ERASE TYPE text/html NAME' tempfile
  56.       return 'Error in FIXCOLOR'
  57.    end
  58. end /* do */
  59.  
  60.  
  61. /* now change the colors
  62. DEFAULTS:
  63. INTRO: '10e581'
  64. SIMPLE :'3DEF5F'
  65. INTERMEDIATE: '2DD52F'
  66. ADVANCED: '40C541'
  67. */
  68.  
  69.  
  70. /* FIRST: the configurator intro  */
  71.  
  72. usec='CCCCCC'
  73. if stuff.!config=1 then usec='10e581 '
  74. if stuff.!config=3 then usec=stuff.!configc
  75. useme='<BODY bgcolor="#'||usec||'" > '
  76.  
  77. call htmlfix 'CONFIGUR.HTM'
  78.  
  79. call lineout tempfile,'<br> Configurator introduction color: ' usec ' ( <font color="#'||usec||'"> XXXXXXXXXXXXXXXXXXXXXXX </font>'
  80.  
  81.  
  82. /* SECOND:the simple mode configurator  */
  83.  
  84. usec='BBBBBB'
  85. usec="3def5f" 
  86. if stuff.!config0=3 then usec=stuff.!config0c
  87. useme='<BODY bgcolor="#'||usec||'" > '
  88.  
  89. call htmlfix 'CONFIG0.HTM'
  90. call cmdfix 'SREFCONF.CMD'
  91.  
  92. call lineout tempfile,' <br> Simple  mode Configurator color: '  usec ' ( <font color="#'||usec||'"> XXXXXXXXXXXXXXXXXXXXXXX </font>'
  93.  
  94.  
  95. /*  THIRD: the intermediate mode configurator */
  96. usec='DDDDDD'
  97. if stuff.!config2=1 then usec='2dd52f'
  98. if stuff.!config2=3 then usec=stuff.!config2c
  99. useme='<BODY bgcolor="#'||usec||'" > '
  100.  
  101. call htmlfix 'CONFIG2.HTM'
  102.  
  103. call cmdfix 'CONFIG2.CMD'
  104. call cmdfix 'VIRTCFG.CMD'
  105. call cmdfix 'ALIASCFG.CMD'
  106. call cmdfix 'ACCESCFG.CMD'
  107. call cmdfix 'USERCFG.CMD'
  108. call cmdfix 'HTACCFG.CMD'
  109.  
  110. call lineout tempfile,' <br> Intermediate mode Configurator color: '  usec ' ( <font color="#'||usec||'"> XXXXXXXXXXXXXXXXXXXXXXX </font>'
  111.  
  112. /* FOURTH: the expert mode configurator */
  113.  
  114. usec='aaaaaa'
  115. if stuff.!config3=1 then usec='40C541'
  116. if stuff.!config3=3 then usec=stuff.!config3c
  117. useme='<BODY bgcolor="#'||usec||'"> '
  118. call htmlfix 'CONFIG3.HTM'
  119. call lineout tempfile,' <br> Expert mode Configurator color: '  usec ' ( <font color="#'||usec||'"> XXXXXXXXXXXXXXXXXXXXXXX </font>'
  120.  
  121.  
  122. call lineout tempfile,'</body></html>'
  123. call lineout tempfile
  124. 'FILE ERASE TYPE text/html NAME' tempfile
  125. return 'FIXCOLOR completed'
  126.  
  127.  
  128. /********** change bgcolor in html file, use global useme */
  129. htmlfix:
  130. parse arg bfile
  131.  
  132. afile=strip(translate(ddir,'\','/'),'t','\')'\'||bfile
  133. if stream(afile,'c','query exists')='' then do
  134.       call lineout tempfile,'<br> Configurator file,'afile', could not be found '
  135.       return 0
  136. end  /* Do */
  137. foo=charin(afile,1,chars(afile))
  138. parse var foo t1 '<BODY ' . '>' t3
  139. woops=t1||useme||t3
  140. foo=sysfiledelete(afile)
  141. op=charout(afile,woops,1)
  142. return 1
  143.  
  144.  
  145. /********* part 3 fixer (uses global usec )*/
  146. cmdfix:
  147. parse arg ado
  148.  
  149. /* 3rd part 4: the intermediate mode configurator 
  150. The files are expected to be in the installation directories.
  151. If not there, we give up */
  152. afile=strip(translate(basedir,'\','/'),'t','\')'\'ado
  153. if stream(afile,'c','query exists')='' then do
  154.       call lineout tempfile,' <br> Configurator file, 'afile', could not be found '
  155.       return 0
  156. end  /* Do */
  157. foo=charin(afile,1,chars(afile))
  158. crlf='0d0a'x
  159.  
  160. oops=pos('USECOLOR=',upper(foo))
  161. oop2=pos(crlf,foo,oops)
  162. t1=left(foo,oops-1)
  163. t3=substr(foo,oop2+2)
  164. woops=t1||"USECOLOR='"||usec||"'"||crlf||t3
  165. foo=sysfiledelete(afile)
  166. op=charout(afile,woops,1)
  167. return 0
  168.  
  169.